home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_88-07_1988_-_de_Side_B.d64 / koala entpacker (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  33 lines
  1. 1 rem "koala entpacker"
  2. 10 data169, 137, 141, 50, 3, 169, 3, 141, 51, 3, 169, 110, 141, 48, 3, 169
  3. 20 data3, 141, 49, 3, 169, 171, 160, 3, 32, 30, 171, 96, 32, 121, 0, 240
  4. 30 data17, 32, 253, 174, 32, 138, 173, 32, 247, 183, 133, 196, 132, 195, 169, 0
  5. 40 data133, 185, 165, 10, 76, 165, 244, 32, 121, 0, 240, 26, 32, 253, 174, 32
  6. 50 data138, 173, 32, 247, 183, 133, 194, 132, 193, 32, 253, 174, 32, 138, 173, 32
  7. 60 data247, 183, 133, 175, 132, 174, 76, 237, 245, 5, 0
  8. 70 ifpeek(49152)+peek(49153)<>285thenload".depacker $c000",8,1
  9. 90 restore:fori=850to940:reada:pokei,a:next:sys850
  10. 95 :
  11. 100 on(x+1)goto110,200
  12. 110 poke53281,0:poke53280,0:printchr$(14)"[147][153][203]oalabild [197]ntpacker"
  13. 120 input"[206]ame des gepackten [194]ildes";n$
  14. 130 open1,8,15:open2,8,2,n$+",p,r"
  15. 140 input#1,a,a$,b,c:close1:close2:ifa=0thenx=1:print"[194]ild wird geladen.":loadn$,8,1,12288
  16. 150 print"[150]*** [196][201][211][203] [197][210][210][207][210] ***[153]":print:printa;a$;b;c
  17. 160 print"[194]itte anderen [206]amen eingeben.":goto120
  18. 200 print:print"[194]ild wird entpackt, bitte warten...":poke250,0:poke251,48:sys49152
  19. 210 print"[147][206]ame des abzuspeichernden [203]oalabilds:":b$="":c$="":n$=""
  20. 220 input"[203]ennbuchstabe (a bis p)";b$
  21. 230 ifb$<"a"orb$>"p"then220
  22. 240 input"[206]ame (maximal 8 [218]eichen)";c$
  23. 250 c$=left$(c$,8):n$="[129]pic "+b$+" "+c$
  24. 260 iflen(n$)<15thenn$=n$+" ":goto260
  25. 270 print"[194]itte [218]ieldiskette einlegen und mit     <<[210][197][212][213][210][206]>> bestaetigen."
  26. 280 geta$:ifa$<>chr$(13)then280
  27. 290 close1:open1,8,15:save(n$),8,1,24576,34577
  28. 300 input#1,a,a$,b,c:ifa=0thenclr:end
  29. 310 print"[150]*** [196][201][211][203] [197][210][210][207][210] ***[153]":print:printa;a$;b;c
  30. 320 print"[206]och ein [214]ersuch ([202]/[206])?"
  31. 330 geta$:ifa$<>"j"anda$<>"n"then330
  32. 340 ifa$="j"then210
  33.